home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #2
/
Monster Media No. 2 (Monster Media)(1994).ISO
/
pcboard
/
boglogor.zip
/
LD-LOGOR.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1994-05-16
|
2KB
|
138 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
String STRING001
String STRING002
;------------------------------------------------------------------------------
KbdFlush
Cls
Print "@X07@X01L@X09o@X0BG@X0Fo@X09N@X0F-@X01R@X09u@X0BN@X0FN@X09e@X01R @X08C@X0FoDeD @X08B@X0Fy @X08L@X0FoRd @X08P@X0FSoNiC oƒ @X08[@X0Fß@X0Ao@X02G@X08]"
Newline
Delay 2
FOpen 1, PPEPath() + "LD-LOGOR.CNF", 2, 0
If (Ferr(1)) Then
PrintLn "ERRoR WiTH FATELOGO.CNF"
PrintLn "PLeSe NoTiFY The SYSOP"
End
Endif
:LABEL001
If (Ferr(1)) Goto LABEL002
FGet 1, STRING001
If (STRING001 == "C") Then
FGet 1, STRING001
Newline
InputStr STRING001 + " (Yes/No) ", STRING002, 15, 1, Mask_AlNum() + Mask_Ascii(), 0
Newline
If (Upper(STRING002) == "Y") Then
FGet 1, STRING001
DispStr STRING001
Endif
If (Upper(STRING002) == "N") Then
FGet 1, STRING001
FGet 1, STRING001
Endif
Endif
If (STRING001 == "R") Then
INTEGER001 = 1 + Random(3)
If (INTEGER001 == 2) Then
FGet 1, STRING001
DispStr STRING001
Endif
Endif
If (STRING001 == "S") Then
FGet 1, INTEGER001
If (CurSec() > INTEGER001) Then
FGet 1, STRING001
DispStr STRING001
Endif
FGet 1, STRING001
FGet 1, STRING001
Endif
If (STRING001 == "B") Then
FGet 1, INTEGER001
If (CurSec() < INTEGER001) Then
FGet 1, STRING001
DispStr STRING001
Endif
FGet 1, STRING001
FGet 1, STRING001
Endif
DispStr STRING001
Goto LABEL001
:LABEL002
FClose 1
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 1 Cls
; 12 Goto
; 1 Let
; 1 Print
; 2 PrintLn
; 11 If
; 1 FOpen
; 1 FClose
; 14 FGet
; 1 InputStr
; 1 Delay
; 3 Newline
; 5 DispStr
; 1 KbdFlush
;
;
; ■ Functions used :
;
; 4 +
; 7 ==
; 1 <
; 1 >
; 11 !
; 2 Upper()
; 2 Ferr()
; 1 Random()
; 1 Mask_AlNum()
; 1 Mask_Ascii()
; 1 PPEPath()
; 2 CurSec()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 10 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------